home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicos2.zip
/
COMPLEX.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
400b
|
12 lines
0 rem *
1 rem *
3 rem *_TEST_FOR_COMPLEX_CONDITIONAL_EXPRESSIONS_
4 rem *
5 cls
10 input "Enter a string to convert to uppercase: " ,IN$
20 for I =1 to len (IN$ )
30 if (asc (mid$ (IN$ ,I ,1 ))>=asc ("a" )and asc (mid$ (IN$ ,I ,1 ))<=asc ("z" )then NEW$ =NEW$ +chr$ (asc (mid$ (IN$ ,I ,1 ))-32 ):goto 50
40 NEW$ =NEW$ +mid$ (IN$ ,I ,1 )
50 next I
60 print "New string: '" ;NEW$ ;"'"